home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / GCR_READ.ARC / RD TRK 16 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  530 b   |  31 lines
  1. 10 ;RD TRK 16
  2. 11 RDERR LDA SEC; READ ERROR AT $00 IN 1541
  3. 12 STA SVE
  4. 20 ERRS JSR LIST
  5. 30 LDY #$00
  6. 40 LP7 LDA MW1,Y; PUT TRACK & SEC AT $06 & $07
  7. 50 JSR OUT
  8. 60 INY
  9. 70 CPY #$08
  10. 80 BNE LP7
  11. 90 JSR UNLIS
  12. 100 JSR LIST
  13. 110 LDY #$00
  14. 120 LP8 LDA MW2,Y; PUT #$80 (READ) AT $00
  15. 130 JSR OUT
  16. 140 INY
  17. 150 CPY #$07
  18. 160 BNE LP8
  19. 170 JSR UNLIS
  20. 180 JSR CHKERR; WAIT FOR ERROR CODE AT $00
  21. 290 LDA ERR
  22. 295 LDY SVE; HOLDS NUMBER OF SECTORS ON TRACK
  23. 350 STA BUFF,Y
  24. 360 DEC SVE
  25. 361 LDA SVE
  26. 362 STA TKSEC+1
  27. 363 CMP #$FF
  28. 370 BNE ERRS
  29. 440 RTS
  30. 450 .FILE RD TRK 17
  31.